unit u_gu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, Grids, stdctrls, extctrls;

type
  Tf_gu = class(TForm)
    sg: TStringGrid;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_gu: Tf_gu;

implementation

{$R *.DFM}

procedure Tf_gu.SpeedButton1Click(Sender: TObject);
var
 cb:TCheckBox;
 im: TImage;
begin
 cb := TCheckBox.Create(sg);
 cb.top := 30;
 cb.left := 10;
 cb.enabled := true;
 cb.width := 20;
 cb.caption := 'test';
 cb.parent:=sg;
 cb.show;
 im := TImage.create(sg);
 im.Left := 110;
 im.width:=32;
 im.top := 50;
 im.height:=32;
 im.Canvas.brush.color := clgreen;
 im.canvas.fillrect(im.ClientRect);
 im.parent := sg;
 im.show;
end;

end.
